home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 4_2005-2006.ISO / data / Zips / Disk_Activ1987614162006.psc / Disk Activity / modAlwaysOnTop.bas < prev    next >
BASIC Source File  |  2006-01-14  |  1KB  |  35 lines
  1. Attribute VB_Name = "modAlwaysOnTop"
  2. Option Explicit
  3.  
  4. Private Declare Function SetWindowPos Lib "user32" (ByVal hWnd As Long, _
  5.                                                     ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _
  6.                                                     ByVal cx As Long, ByVal cy As Long, ByVal uFlags As Long) As Long
  7.  
  8. ' Constantes de SetWindowPos :
  9. Private Const HWND_TOPMOST      As Long = -1
  10. Private Const HWND_NOTOPMOST    As Long = -2
  11.  
  12. Private Const SWP_NOSIZE        As Long = &H1
  13. Private Const SWP_NOMOVE        As Long = &H2
  14. Private Const SWP_NOACTIVATE    As Long = &H10
  15. '
  16.  
  17. Public Sub SetTop(Form As Form, _
  18.                   ByVal Topmost As Boolean)
  19.  
  20. Dim hWndInsertAfter As Long
  21.  
  22.     If Topmost Then
  23.         hWndInsertAfter = HWND_TOPMOST
  24.     Else
  25.         hWndInsertAfter = HWND_NOTOPMOST
  26.     End If
  27.  
  28.     SetWindowPos Form.hWnd, hWndInsertAfter, 0, 0, 0, 0, _
  29.                  SWP_NOSIZE Or SWP_NOMOVE Or SWP_NOACTIVATE
  30.  
  31. End Sub
  32.  
  33. ':) Ulli's VB Code Formatter V2.19.5 (2006-janv-14 01:31)  Decl: 14  Code: 19  Total: 33 Lines
  34. ':) CommentOnly: 2 (6,1%)  Commented: 0 (0%)  Empty: 8 (24,2%)  Max Logic Depth: 2
  35.